home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / wlpeep.zip / WALLPEEP.FRM (.txt) < prev    next >
Visual Basic Form  |  1992-11-25  |  9KB  |  218 lines
  1. Form1
  2. WallPeeper
  3. XXXXX
  4. XXXXX
  5. XXXXX
  6. XXXXX
  7. XXXXX
  8. XXXXX
  9. XXXXX
  10. XXXXX
  11. Form1%
  12. Picture2
  13. ResizableChecked
  14.     Resizable
  15. MS Sans Serif
  16. Timer1
  17. Picture1
  18. File2
  19. *.bmp;*.ico;*.wmf;*.rle;*.dib
  20. TileChecked
  21. MS Sans Serif
  22. Command1
  23. Set as Wallpaper
  24. Command2
  25. Refresh List
  26. ShowAllFiles
  27. Show all usable files on C
  28. MS Sans Serif
  29. List1
  30. File1
  31. *.bmp;*.ico;*.wmf;*.rle;*.dib
  32. Drive1
  33. Label1
  34. FileMenu
  35. FileExit
  36. E&xit
  37. FileSep
  38.     FileAbout
  39. &About WallPeeper...
  40. GetVersion
  41. GetWindowsDirectory
  42. SystemParametersInfo
  43. wAction
  44. wParam
  45. lParamS
  46. fWinIni6
  47. SPI_SETDESKWALLPAPER
  48. SPIF_UPDATEINIFILE]
  49. SPIF_SENDWININICHANGE
  50. Drive1_Change\
  51. List1
  52.     ListCount
  53. ClearListBox
  54. Form1
  55. Check14
  56. Caption
  57. Drive19
  58. Drivek
  59. Value
  60. False
  61. Dir1K
  62. Screen>
  63. MousePointerL
  64. FillList
  65. Dir1_Change
  66. File1
  67. File1_Click
  68. ShowPicture
  69. FileName
  70.     WallPaper@
  71.     Form_Load.
  72. WinVer/
  73. WinVersion
  74. Form2m
  75. Visible
  76.     ListIndex~
  77. Focus7
  78. Timer1p
  79. Intervalk
  80. FileExit_Click
  81. Check1_Click
  82. ListI
  83. Enabled
  84. SelectInFIleList
  85.     ForeColor
  86. Command2
  87. Dirs"
  88. DirNameh
  89. FindItema
  90. List1_Click
  91. GetNameAndDirR
  92. FName
  93. DName
  94. Form_Unload
  95. Cancel
  96. FileAbout_Click
  97. Form3
  98. List1_DblClick
  99. List1DClick
  100. File1_DblClick
  101. File1DClick$
  102. Timer1_Timer
  103. GetActiveWindowe
  104. Command1_Click
  105. WinPath
  106. BmpFile
  107. Picture1
  108. Image
  109. Form_Resize
  110. Command2_Click
  111. Dir1_Click
  112. Picture1_Click
  113. Label1_Clickw
  114. olddrive
  115. Drive1_GotFocus
  116. SavedDrive
  117. Desktop
  118. Pattern
  119. WINDOWS
  120. WALLVIEW
  121. GridGranularity
  122. IconSpacing
  123. TileWallPaper
  124. WriteProfileStringX
  125.     lpAppNameq
  126.     lpKeyName{
  127. lpString*
  128. Check2
  129. WindowStateI
  130. Check2_Clicku
  131. Loading
  132. GetProfileString
  133.     lpDefault
  134. lpReturnedStringY
  135. nSize
  136. lpRS 
  137. SP1Pos
  138. bgCol6
  139.     BackColor
  140. GetBackgroundColor
  141. OldMousePointer
  142. Check3_Clickc
  143. Check3g
  144. LBWidth
  145. LBHeight
  146. PositionOutline
  147. Picture
  148.     SourcePic
  149. DestinationPic
  150. dwRop
  151. BorderStyle
  152. ShowAllFiles_Click
  153. ShowAllFiles
  154. TileChecked_Click
  155. TileChecked
  156. ResizableChecked
  157. ResizableChecked_Click
  158. ScaleWidth
  159. ScaleHeight
  160. Width
  161. Height
  162. AutoSize
  163.     scalemode
  164. AutoRedraw
  165. Picture2
  166. Window
  167.     OldMouseP
  168. Kernel
  169. kernel
  170. KernelK
  171. update Win.ini Const
  172. update Win.ini and tell everyone
  173. Command1_Click
  174. WALLPEEP.BMP
  175. [Desktop]=
  176. Pattern = (None)
  177. Wallpaper=C:\WINDOWS\WALLVIEW.BMP
  178. GridGranularity = 0S
  179. IconSpacing = 93
  180. TileWallPaper = 1
  181. Desktop
  182. TileWallPaper
  183. Desktop
  184. TileWallPaper
  185. Command2_Click
  186. Dir1_Change
  187. Dir1_Click
  188. Drive1_Change
  189. Error reading drive 
  190. Drive1_GotFocus
  191. File1_Click
  192. File1_DblClick
  193. FileAbout_Click
  194. FileExit_Click
  195. Form_Load
  196. This program requires Windows 3.1.
  197. Form_Resize
  198. Command1.Top = Scaleheight - Command1.height - 6
  199. Command1.Left = Scalewidth - Command1.width - 66
  200.  minimized
  201. Form_Unload
  202. List1_Click
  203. List1_DblClick
  204. PositionOutline
  205. ResizableChecked_Click
  206. Form2.Enabled = Falsee
  207. Form2.Enabled = True
  208. SelectInFIleList
  209. ShowAllFiles_Click
  210. For I = 1 To List1.ListCount
  211.    If T$ = List1.List(I - 1) Then.
  212.  List1.ListIndex = I - 1
  213.  Exit Fors
  214.    End Ifo
  215. Next I
  216. TileChecked_Click
  217. Timer1_Timer
  218.